home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 028a / changer.zip / CHANGE.BAT next >
DOS Batch File  |  1991-10-02  |  5KB  |  257 lines
  1. @ECHO OFF
  2. IF $%1$==$$ GOTO NOPARMS
  3. IF %1==ARC GOTO ARC2
  4. IF %1==arc GOTO ARC2
  5. IF %1==PAK GOTO PAK2
  6. IF %1==pak GOTO PAK2
  7. IF %1==ZIP GOTO ZIP2
  8. IF %1==zip GOTO ZIP2
  9. IF %1==LZH GOTO LZH2
  10. IF %1==lzh GOTO LZH2
  11. IF %1==ARJ GOTO ARJ2
  12. IF %1==arj GOTO ARJ2
  13. GOTO SYNTAX
  14. :ARC2
  15. IF %2==PAK GOTO ARC2PAK
  16. IF %2==pak GOTO ARC2PAK
  17. IF %2==ZIP GOTO ARC2ZIP
  18. IF %2==zip GOTO ARC2ZIP
  19. IF %2==LZH GOTO ARC2LZH
  20. IF %2==lzh GOTO ARC2LZH
  21. IF %2==ARJ GOTO ARC2ARJ
  22. IF %2==arj GOTO ARC2ARJ
  23. GOTO SYNTAX
  24. :PAK2
  25. IF %2==ARC GOTO PAK2ARC
  26. IF %2==arc GOTO PAK2ARC
  27. IF %2==ZIP GOTO PAK2ZIP
  28. IF %2==zip GOTO PAK2ZIP
  29. IF %2==LZH GOTO PAK2LZH
  30. IF %2==lzh GOTO PAK2LZH
  31. IF %2==ARJ GOTO PAK2ARJ
  32. IF %2==arj GOTO PAK2ARJ
  33. GOTO SYNTAX
  34. :ZIP2
  35. IF %2==ARC GOTO ZIP2ARC
  36. IF %2==arc GOTO ZIP2ARC
  37. IF %2==PAK GOTO ZIP2PAK
  38. IF %2==pak GOTO ZIP2PAK
  39. IF %2==LZH GOTO ZIP2LZH
  40. IF %2==lzh GOTO ZIP2LZH
  41. IF %2==ARJ GOTO ZIP2ARJ
  42. IF %2==arj GOTO ZIP2ARJ
  43. GOTO SYNTAX
  44. :LZH2
  45. IF %2==ARC GOTO LZH2ARC
  46. IF %2==arc GOTO LZH2ARC
  47. IF %2==PAK GOTO LZH2PAK
  48. IF %2==pak GOTO LZH2PAK
  49. IF %2==ZIP GOTO LZH2ZIP
  50. IF %2==zip GOTO LZH2ZIP
  51. IF %2==ARJ GOTO LZH2ARJ
  52. IF %2==arj GOTO LZH2ARJ
  53. GOTO SYNTAX
  54. :ARJ2
  55. IF %2==ARC GOTO ARJ2ARC
  56. IF %2==arc GOTO ARJ2ARC
  57. IF %2==PAK GOTO ARJ2PAK
  58. IF %2==pak GOTO ARJ2PAK
  59. IF %2==ZIP GOTO ARJ2ZIP
  60. IF %2==zip GOTO ARJ2ZIP
  61. IF %2==LZH GOTO ARJ2LZH
  62. IF %2==lzh GOTO ARJ2LZH
  63. GOTO SYNTAX
  64. :ARC2PAK
  65. IF $%3$==$$ GOTO NOFILE
  66. PAK C /REN %3 >LOG
  67. GOTO SUCCESS
  68. :ARC2ZIP
  69. IF $%3$==$$ GOTO NOFILE
  70. MD TEMPARCH
  71. PAK E %3 TEMPARCH\ >LOG
  72. PKZIP %3 TEMPARCH\*.* >LOG
  73. DEL TEMPARCH\*.* <YES >LOG
  74. RD TEMPARCH >LOG
  75. DEL %3.ARC >LOG
  76. GOTO SUCCESS
  77. :ARC2LZH
  78. IF $%3$==$$ GOTO NOFILE
  79. MD TEMPARCH >LOG
  80. PAK E %3 TEMPARCH\ >LOG
  81. LHA A %3 TEMPARCH\*.* >LOG
  82. DEL TEMPARCH\*.* <YES >LOG
  83. RD TEMPARCH >LOG
  84. DEL %3.ARC >LOG
  85. GOTO SUCCESS
  86. :ARC2ARJ
  87. IF $%3$==$$ GOTO NOFILE
  88. MD TEMPARCH >LOG
  89. PAK E %3 TEMPARCH\ >LOG
  90. ARJ A %3 TEMPARCH\*.* >LOG
  91. DEL TEMPARCH\*.* <YES >LOG
  92. RD TEMPARCH >LOG
  93. DEL %3.ARC >LOG
  94. GOTO SUCCESS
  95. :PAK2ARC
  96. IF $%3$==$$ GOTO NOFILE
  97. MD TEMPARCH >LOG
  98. PAK E %3 TEMPARCH\ >LOG
  99. PAK A %3.ARC TEMPARCH\*.* >LOG
  100. DEL TEMPARCH\*.* <YES >LOG
  101. RD TEMPARCH >LOG
  102. DEL %3.PAK >LOG
  103. GOTO SUCCESS
  104. :PAK2ZIP
  105. IF $%3$==$$ GOTO NOFILE
  106. MD TEMPARCH >LOG
  107. PAK E %3 TEMPARCH\ >LOG
  108. PKZIP %3 TEMPARCH\*.* >LOG
  109. DEL TEMPARCH\*.* <YES >LOG
  110. RD TEMPARCH >LOG
  111. DEL %3.PAK >LOG
  112. GOTO SUCCESS
  113. :PAK2LZH
  114. IF $%3$==$$ GOTO NOFILE
  115. MD TEMPARCH >LOG
  116. PAK E %3 TEMPARCH\ >LOG
  117. LHA A %3 TEMPARCH\*.* >LOG
  118. DEL TEMPARCH\*.* <YES >LOG
  119. RD TEMPARCH >LOG
  120. DEL %3.PAK >LOG
  121. GOTO SUCCESS
  122. :PAK2ARJ
  123. IF $%3$==$$ GOTO NOFILE
  124. MD TEMPARCH >LOG
  125. PAK E %3 TEMPARCH\ >LOG
  126. ARJ A %3 TEMPARCH\*.* >LOG
  127. DEL TEMPARCH\*.* <YES >LOG
  128. RD TEMPARCH >LOG
  129. DEL %3.PAK >LOG
  130. GOTO SUCCESS
  131. :ZIP2ARC
  132. IF $%3$==$$ GOTO NOFILE
  133. MD TEMPARCH >LOG
  134. PKUNZIP %3 TEMPARCH\ >LOG
  135. PAK A %3.ARC TEMPARCH\*.* >LOG
  136. DEL TEMPARCH\*.* <YES >LOG
  137. RD TEMPARCH >LOG
  138. DEL %3.ZIP >LOG
  139. GOTO SUCCESS
  140. :ZIP2PAK
  141. IF $%3$==$$ GOTO NOFILE
  142. MD TEMPARCH >LOG
  143. PKUNZIP %3 TEMPARCH\ >LOG
  144. PAK A %3 TEMPARCH\*.* >LOG
  145. DEL TEMPARCH\*.* <YES >LOG
  146. RD TEMPARCH >LOG
  147. DEL %3.ZIP >LOG
  148. GOTO SUCCESS
  149. :ZIP2LZH
  150. IF $%3$==$$ GOTO NOFILE
  151. MD TEMPARCH >LOG
  152. PKUNZIP %3 TEMPARCH\ >LOG
  153. LHA A %3 TEMPARCH\*.* >LOG
  154. DEL TEMPARCH\*.* <YES >LOG
  155. RD TEMPARCH >LOG
  156. DEL %3.ZIP >LOG
  157. GOTO SUCCESS
  158. :ZIP2ARJ
  159. IF $%3$==$$ GOTO NOFILE
  160. MD TEMPARCH >LOG
  161. PKUNZIP %3 TEMPARCH\ >LOG
  162. ARJ A %3 TEMPARCH\*.* >LOG
  163. DEL TEMPARCH\*.* <YES >LOG
  164. RD TEMPARCH >LOG
  165. DEL %3.ZIP >LOG
  166. GOTO SUCCESS
  167. :LZH2ARC
  168. IF $%3$==$$ GOTO NOFILE
  169. MD TEMPARCH >LOG
  170. LHA E %3 TEMPARCH\ >LOG
  171. PAK A %3.ARC TEMPARCH\*.* >LOG
  172. DEL TEMPARCH\*.* <YES >LOG
  173. RD TEMPARCH >LOG
  174. DEL %3.LZH >LOG
  175. GOTO SUCCESS
  176. :LZH2PAK
  177. IF $%3$==$$ GOTO NOFILE
  178. MD TEMPARCH >LOG
  179. LHA E %3 TEMPARCH\ >LOG
  180. PAK A %3 TEMPARCH\*.* >LOG
  181. DEL TEMPARCH\*.* <YES >LOG
  182. RD TEMPARCH >LOG
  183. DEL %3.LZH >LOG
  184. GOTO SUCCESS
  185. :LZH2ZIP
  186. IF $%3$==$$ GOTO NOFILE
  187. MD TEMPARCH >LOG
  188. LHA E %3 TEMPARCH\ >LOG
  189. PKZIP %3 TEMPARCH\*.* >LOG
  190. DEL TEMPARCH\*.* <YES >LOG
  191. RD TEMPARCH >LOG
  192. DEL %3.LZH >LOG
  193. GOTO SUCCESS
  194. :LZH2ARJ
  195. IF $%3$==$$ GOTO NOFILE
  196. MD TEMPARCH >LOG
  197. LHA E %3 TEMPARCH\ >LOG
  198. ARJ A %3 TEMPARCH\*.* >LOG
  199. DEL TEMPARCH\*.* <YES >LOG
  200. RD TEMPARCH >LOG
  201. DEL %3.LZH >LOG
  202. GOTO SUCCESS
  203. :ARJ2ARC
  204. IF $%3$==$$ GOTO NOFILE
  205. MD TEMPARCH >LOG
  206. ARJ E %3 TEMPARCH\ >LOG
  207. PAK A %3.ARC TEMPARCH\*.* >LOG
  208. DEL TEMPARCH\*.* <YES >LOG
  209. RD TEMPARCH >LOG
  210. DEL %3.ARJ >LOG
  211. GOTO SUCCESS
  212. :ARJ2PAK
  213. IF $%3$==$$ GOTO NOFILE
  214. MD TEMPARCH >LOG
  215. ARJ E %3 TEMPARCH\ >LOG
  216. PAK A %3 TEMPARCH\*.* >LOG
  217. DEL TEMPARCH\*.* <YES >LOG
  218. RD TEMPARCH >LOG
  219. DEL %3.ARJ >LOG
  220. GOTO SUCCESS
  221. :ARJ2ZIP
  222. IF $%3$==$$ GOTO NOFILE
  223. MD TEMPARCH >LOG
  224. ARJ E %3 TEMPARCH\ >LOG
  225. PKZIP %3 TEMPARCH\*.* >LOG
  226. DEL TEMPARCH\*.* <YES >LOG
  227. RD TEMPARCH >LOG
  228. DEL %3.ARJ >LOG
  229. GOTO SUCCESS
  230. :ARJ2LZH
  231. IF $%3$==$$ GOTO NOFILE
  232. MD TEMPARCH >LOG
  233. ARJ E %3 TEMPARCH\ >LOG
  234. LHA A %3 TEMPARCH\*.* >LOG
  235. DEL TEMPARCH\*.* <YES >LOG
  236. RD TEMPARCH >LOG
  237. DEL %3.ARJ >LOG
  238. GOTO SUCCESS
  239. :NOFILE
  240. ECHO You left out the filename!
  241. GOTO SYNTAX
  242. :NOPARMS
  243. ECHO You idiot!  You have to use paramaters on your command line!
  244. :SYNTAX
  245. ECHO  
  246. ECHO SYNTAX:
  247. ECHO    CHANGE ext ext filename
  248. ECHO    1st ext is the extension of the present file
  249. ECHO    2nd ext is the extension of the new file
  250. ECHO    filename is the name of the file to be converted
  251. ECHO            IMPORTANT: Omit the extension on the filename!
  252. GOTO END
  253. :SUCCESS
  254. ECHO Successfully converted %3.%1  to  %3.%2
  255. :END
  256. DEL LOG >NUL
  257.